home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macrosrc.arc / PROG.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  702 b   |  27 lines
  1.  
  2.     UNL
  3. * Promgram Directive
  4. * A is an IDT name
  5.  
  6. PROG    $MACRO  A,B
  7.         $VAR    Q
  8.         $ASG    ''''    TO Q.S
  9.         IDT     :Q::A::Q:
  10.         $ASG    '$$LAB' TO Q.S
  11.         $ASG    0       TO Q.SV
  12.         $ASG    '$$LPS' TO Q.S
  13.         $ASG    0       TO Q.SV
  14.         $ASG    '$$IFS' TO Q.S
  15.         $ASG    0       TO Q.SV
  16.         $ASG    '$$ABS' TO Q.S
  17.         $ASG    0       TO Q.SV
  18.         $ASG    '*'     TO Q.S
  19.         $ASG    >F0F0   TO Q.SV
  20.         $ASG    '*+'    TO Q.S
  21.         $ASG    >F0F1   TO Q.SV
  22.         $ASG    '*-'    TO Q.S
  23.         $ASG    >F0F2   TO Q.SV
  24.         $IF     B.L#=0
  25.         REF     ONE,MINUS,XR0,XR1
  26.         $ENDIF
  27.         $END    PROG